Clean RStudio and load packages

rm(list=ls()) # clear environment
library(data.table)
library(knitr)

Inputs

file_name_data <- "data/processed_level-p_jur-us_yr-2016_span-1"
file_name_function <- "2_analysis/sum_stat_function"
cont_vars <- c("log_wagp", "log_pincp", "wagp", "pincp", "log_hr_wagp", 
               "log_hr_pincp", "hr_wagp", "hr_pincp",
               "wkhp", "agep", "exp", "schl_yrs") # continuous variables to analyze
wd <- Sys.getenv("ACS_DIR") # working directory location

Read in the data and functions selected above

setwd(wd) # set working directory
opts_knit$set(root.dir = wd)
dt <- fread(paste0(file_name_data, ".csv")) # select dataset to use
source(paste0(file_name_function, ".R")) # read in functions

tables and graphs for continuous variables

for (v in cont_vars){
  print(paste0("summary stats: ", v))
  print(summary_func(dt, "race", v, "sex"))
  
  print(paste0("box plot: ", v))
  print(boxplot_func(dt, "race", v, "sex"))
}
## [1] "summary stats: log_wagp"
## # A tibble: 8 x 10
## # Groups:   race [?]
##   race         sex  mean quart_1 median quart_3   min   max    sd      n
##   <chr>      <int> <dbl>   <dbl>  <dbl>   <dbl> <dbl> <dbl> <dbl>  <int>
## 1 afr_am         0  10.1    9.60   10.3    10.8  1.39  13.5  1.16  62639
## 2 afr_am         1  10.0    9.55   10.2    10.7  3.00  13.5  1.06  72694
## 3 east_asian     0  10.8   10.1    10.9    11.5  4.09  13.5  1.16  14532
## 4 east_asian     1  10.5    9.90   10.6    11.2  3.00  13.3  1.13  14783
## 5 other          0  10.4    9.85   10.4    11.0  1.39  13.4  1.09  68148
## 6 other          1  10.1    9.57   10.2    10.8  1.39  13.5  1.08  56640
## 7 white          0  10.6   10.1    10.7    11.3  1.39  13.5  1.11 597178
## 8 white          1  10.2    9.74   10.4    10.9  1.39  13.5  1.05 516507
## [1] "box plot: log_wagp"

## [1] "summary stats: log_pincp"
## # A tibble: 8 x 10
## # Groups:   race [?]
##   race         sex  mean quart_1 median quart_3   min   max    sd      n
##   <chr>      <int> <dbl>   <dbl>  <dbl>   <dbl> <dbl> <dbl> <dbl>  <int>
## 1 afr_am         0  10.2    9.64   10.3    10.9     0  13.7  1.15  64996
## 2 afr_am         1  10.1    9.63   10.3    10.8     0  13.7  1.02  74342
## 3 east_asian     0  10.8   10.1    10.9    11.6     0  14.1  1.15  15461
## 4 east_asian     1  10.5    9.90   10.7    11.3     0  13.8  1.12  15516
## 5 other          0  10.4    9.89   10.5    11.1     0  14.0  1.08  72041
## 6 other          1  10.1    9.62   10.2    10.8     0  13.8  1.06  59133
## 7 white          0  10.7   10.1    10.8    11.3     0  14.2  1.10 638874
## 8 white          1  10.3    9.85   10.5    11.0     0  13.8  1.03 540451
## [1] "box plot: log_pincp"

## [1] "summary stats: wagp"
## # A tibble: 8 x 10
## # Groups:   race [?]
##   race        sex   mean quart_1 median quart_3   min    max     sd      n
##   <chr>     <int>  <dbl>   <dbl>  <dbl>   <dbl> <dbl>  <dbl>  <dbl>  <int>
## 1 afr_am        0 38192.   12100  28800   50000     0 714000 44151.  65026
## 2 afr_am        1 34739.   13000  26000   45000     0 714000 38072.  74376
## 3 east_asi~     0 74749.   20000  50000  100000     0 714000 87801.  15473
## 4 east_asi~     1 54720.   16000  40000   74000     0 601000 62089.  15521
## 5 other         0 48387.   16000  31000   60000     0 665000 61270.  72068
## 6 other         1 37181.   12400  25000   48000     0 714000 44368.  59154
## 7 white         0 59734.   19900  41600   75000     0 714000 73849. 639350
## 8 white         1 41153.   15000  30400   53000     0 714000 46348. 540753
## [1] "box plot: wagp"

## [1] "summary stats: pincp"
## # A tibble: 8 x 10
## # Groups:   race [?]
##   race       sex   mean quart_1 median quart_3    min    max     sd      n
##   <chr>    <int>  <dbl>   <dbl>  <dbl>   <dbl>  <dbl>  <dbl>  <dbl>  <int>
## 1 afr_am       0 42277.   15400  30000   54000 -10500 8.54e5 47812.  65026
## 2 afr_am       1 37587.   15115  29000   48000 -11900 9.28e5 40459.  74376
## 3 east_as~     0 83154.   25000  55600  104000  -6600 1.26e6 95697.  15473
## 4 east_as~     1 60083.   20000  43000   79800  -6700 9.53e5 67133.  15521
## 5 other        0 53062.   19800  35000   63000  -8400 1.16e6 66863.  72068
## 6 other        1 40005.   15000  27490   50000  -6700 9.92e5 47026.  59154
## 7 white        0 69577.   25100  48000   80000 -11800 1.54e6 83700. 639350
## 8 white        1 46062.   19000  35000   58000 -11800 1.02e6 50673. 540753
## [1] "box plot: pincp"

## [1] "summary stats: log_hr_wagp"
## # A tibble: 8 x 10
## # Groups:   race [?]
##   race         sex  mean quart_1 median quart_3     min   max    sd      n
##   <chr>      <int> <dbl>   <dbl>  <dbl>   <dbl>   <dbl> <dbl> <dbl>  <int>
## 1 afr_am         0  6.42    5.99   6.59    7.09 -2.30   10.3  1.06   62639
## 2 afr_am         1  6.42    5.99   6.55    7.03 -1.60   10.3  0.965  72694
## 3 east_asian     0  7.05    6.44   7.17    7.80  0.223   9.91 1.07   14532
## 4 east_asian     1  6.82    6.25   6.93    7.52 -0.0488  9.91 1.03   14783
## 5 other          0  6.65    6.17   6.68    7.30 -2.53   10.1  1.01   68148
## 6 other          1  6.47    6.01   6.55    7.11 -1.83   10.1  0.992  56640
## 7 white          0  6.84    6.39   6.91    7.47 -3.21   10.4  1.02  597178
## 8 white          1  6.61    6.21   6.73    7.20 -2.71   10.4  0.942 516507
## [1] "box plot: log_hr_wagp"

## [1] "summary stats: log_hr_pincp"
## # A tibble: 8 x 10
## # Groups:   race [?]
##   race         sex  mean quart_1 median quart_3   min   max    sd      n
##   <chr>      <int> <dbl>   <dbl>  <dbl>   <dbl> <dbl> <dbl> <dbl>  <int>
## 1 afr_am         0  6.49    6.05   6.62    7.13 -4.09  10.3 1.06   64996
## 2 afr_am         1  6.50    6.09   6.62    7.09 -3.69  10.5 0.934  74342
## 3 east_asian     0  7.09    6.48   7.20    7.82 -4.25  10.4 1.08   15461
## 4 east_asian     1  6.86    6.31   6.98    7.56 -4.03  10.0 1.04   15516
## 5 other          0  6.68    6.21   6.72    7.31 -4.09  10.3 1.02   72041
## 6 other          1  6.51    6.05   6.58    7.13 -4.25  10.2 0.979  59133
## 7 white          0  6.93    6.44   7.01    7.54 -4.60  11.0 1.02  638874
## 8 white          1  6.69    6.25   6.79    7.26 -4.38  10.5 0.934 540451
## [1] "box plot: log_hr_pincp"

## [1] "summary stats: hr_wagp"
## # A tibble: 8 x 10
## # Groups:   race [?]
##   race         sex  mean quart_1 median quart_3   min    max    sd      n
##   <chr>      <int> <dbl>   <dbl>  <dbl>   <dbl> <dbl>  <dbl> <dbl>  <int>
## 1 afr_am         0  907.    357.   700    1176.     0 29150  1000.  65026
## 2 afr_am         1  876.    380    680    1120.     0 29750   959.  74376
## 3 east_asian     0 1729.    514.  1222.   2340      0 20033. 1922.  15473
## 4 east_asian     1 1335.    480   1000    1787.     0 20033. 1415.  15521
## 5 other          0 1133.    425    750    1380      0 25300  1333.  72068
## 6 other          1  934.    375    667.   1175      0 25200  1037.  59154
## 7 white          0 1345.    500    982.   1660      0 33250  1587. 639350
## 8 white          1 1019.    440    800    1300      0 33250  1054. 540753
## [1] "box plot: hr_wagp"

## [1] "summary stats: hr_pincp"
## # A tibble: 8 x 10
## # Groups:   race [?]
##   race         sex  mean quart_1 median quart_3   min   max    sd      n
##   <chr>      <int> <dbl>   <dbl>  <dbl>   <dbl> <dbl> <dbl> <dbl>  <int>
## 1 afr_am         0 1016.    425    750    1250   -420 29150 1111.  65026
## 2 afr_am         1  958.    442.   750    1200   -300 37450 1046.  74376
## 3 east_asian     0 1938.    650   1333.   2500   -300 31625 2131.  15473
## 4 east_asian     1 1481.    550   1076    1917.  -290 22430 1569.  15521
## 5 other          0 1248.    500    825    1500   -300 29025 1467.  72068
## 6 other          1 1010.    425    720    1250   -236 25630 1103.  59154
## 7 white          0 1591.    625   1104.   1875   -355 61404 1869. 639350
## 8 white          1 1158.    520    889.   1429.  -415 35950 1198. 540753
## [1] "box plot: hr_pincp"

## [1] "summary stats: wkhp"
## # A tibble: 8 x 10
## # Groups:   race [?]
##   race         sex  mean quart_1 median quart_3   min   max    sd      n
##   <chr>      <int> <dbl>   <dbl>  <dbl>   <dbl> <dbl> <dbl> <dbl>  <int>
## 1 afr_am         0  40.7      40     40      40    20    99 10.6   65026
## 2 afr_am         1  38.5      35     40      40    20    99  9.30  74376
## 3 east_asian     0  42.0      40     40      45    20    99 10.6   15473
## 4 east_asian     1  39.6      36     40      40    20    99 10.5   15521
## 5 other          0  41.6      40     40      42    20    99 10.2   72068
## 6 other          1  38.4      35     40      40    20    99  9.56  59154
## 7 white          0  43.0      40     40      50    20    99 10.9  639350
## 8 white          1  38.6      35     40      40    20    99  9.73 540753
## [1] "box plot: wkhp"

## [1] "summary stats: agep"
## # A tibble: 8 x 10
## # Groups:   race [?]
##   race         sex  mean quart_1 median quart_3   min   max    sd      n
##   <chr>      <int> <dbl>   <dbl>  <dbl>   <dbl> <dbl> <dbl> <dbl>  <int>
## 1 afr_am         0  41.7      29     41      53    16    95  14.5  65026
## 2 afr_am         1  42.3      30     42      54    16    94  14.2  74376
## 3 east_asian     0  43.5      32     44      54    16    94  13.6  15473
## 4 east_asian     1  43.1      32     43      53    16    95  13.4  15521
## 5 other          0  40.2      29     39      50    16    94  13.3  72068
## 6 other          1  40.4      29     40      50    16    95  13.3  59154
## 7 white          0  44.0      32     45      56    16    96  14.8 639350
## 8 white          1  43.7      31     45      55    16    96  14.5 540753
## [1] "box plot: agep"

## [1] "summary stats: exp"
## # A tibble: 8 x 10
## # Groups:   race [?]
##   race         sex  mean quart_1 median quart_3   min   max    sd      n
##   <chr>      <int> <dbl>   <dbl>  <dbl>   <dbl> <dbl> <dbl> <dbl>  <int>
## 1 afr_am         0  23.4      11     23      35    -7    90  14.6  65026
## 2 afr_am         1  23.4      11     23      35    -4    87  14.4  74376
## 3 east_asian     0  23.0      11     22      34    -4    89  14.4  15473
## 4 east_asian     1  23.0      10     22      34    -7    90  14.5  15521
## 5 other          0  22.3      11     21      33    -5    82  14.1  72068
## 6 other          1  22.1      10     21      33    -5    88  14.1  59154
## 7 white          0  25.1      12     25      37    -7    90  14.8 639350
## 8 white          1  24.4      11     25      36    -7    84  14.8 540753
## [1] "box plot: exp"

## [1] "summary stats: schl_yrs"
## # A tibble: 8 x 10
## # Groups:   race [?]
##   race         sex  mean quart_1 median quart_3   min   max    sd      n
##   <chr>      <int> <dbl>   <dbl>  <dbl>   <dbl> <dbl> <dbl> <dbl>  <int>
## 1 afr_am         0  13.3      12     12      14     0    23  2.61  65026
## 2 afr_am         1  13.8      12     14      16     0    23  2.63  74376
## 3 east_asian     0  15.5      14     16      18     0    23  4.11  15473
## 4 east_asian     1  15.2      14     16      18     0    23  3.86  15521
## 5 other          0  12.8      12     12      16     0    23  4.14  72068
## 6 other          1  13.3      12     14      16     0    23  3.77  59154
## 7 white          0  13.9      12     14      16     0    23  2.95 639350
## 8 white          1  14.3      12     14      16     0    23  2.72 540753
## [1] "box plot: schl_yrs"

tables and graphs for continuous variables

corr_func(data=dt, vars=cont_vars)
##              log_wagp log_pincp  wagp pincp log_hr_wagp log_hr_pincp
## log_wagp        1.000     0.949 0.714 0.667       0.975        0.908
## log_pincp       0.949     1.000 0.705 0.713       0.927        0.972
## wagp            0.714     0.705 1.000 0.951       0.704        0.686
## pincp           0.667     0.713 0.951 1.000       0.660        0.703
## log_hr_wagp     0.975     0.927 0.704 0.660       1.000        0.938
## log_hr_pincp    0.908     0.972 0.686 0.703       0.938        1.000
## hr_wagp         0.703     0.696 0.958 0.916       0.729        0.714
## hr_pincp        0.631     0.693 0.882 0.950       0.662        0.725
## wkhp            0.450     0.424 0.320 0.292       0.246        0.208
## agep            0.299     0.392 0.203 0.248       0.303        0.401
## exp             0.227     0.315 0.135 0.180       0.229        0.323
## schl_yrs        0.341     0.358 0.323 0.321       0.346        0.361
##              hr_wagp hr_pincp  wkhp  agep    exp schl_yrs
## log_wagp       0.703    0.631 0.450 0.299  0.227    0.341
## log_pincp      0.696    0.693 0.424 0.392  0.315    0.358
## wagp           0.958    0.882 0.320 0.203  0.135    0.323
## pincp          0.916    0.950 0.292 0.248  0.180    0.321
## log_hr_wagp    0.729    0.662 0.246 0.303  0.229    0.346
## log_hr_pincp   0.714    0.725 0.208 0.401  0.323    0.361
## hr_wagp        1.000    0.931 0.163 0.216  0.148    0.323
## hr_pincp       0.931    1.000 0.119 0.271  0.204    0.316
## wkhp           0.163    0.119 1.000 0.094  0.070    0.113
## agep           0.216    0.271 0.094 1.000  0.979    0.050
## exp            0.148    0.204 0.070 0.979  1.000   -0.155
## schl_yrs       0.323    0.316 0.113 0.050 -0.155    1.000

tables and graphs for continuous variables

combos <- combn(cont_vars, 2)
for (cmb in 1:ncol(combos)){
  print(scatter_func(x_var=combos[,cmb][1],
                     y_var=combos[,cmb][2],
                     by_var="race"))
}

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]

## TableGrob (2 x 1) "arrange": 2 grobs
##   z     cells    name            grob
## 1 1 (1-1,1-1) arrange  gtable[layout]
## 2 2 (2-2,1-1) arrange gtable[arrange]